home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MISC.SWG / 0050_BREAK and CONTINUE.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-02  |  252b  |  12 lines
  1. {
  2. MARTIN LARSEN
  3.  
  4. There are at least two nice features in BP7: BREAK and CONTINUE:
  5. }
  6.  
  7. Repeat
  8.   Inc(Count);
  9.   if Odd(Count) then Continue; { Go to start of loop }
  10.   if Count = 10 then Break;    { Go to sentence just after loop }
  11. Until False;
  12.